home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 154 / 154.d81 / knights ex (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1997-01-01  |  5.5 KB  |  170 lines
  1. 10 poke53280,0:poke53281,10:poke646,0:poke53272,31
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 20 :
  4. 30 rem  title screen
  5. 40 :
  6. 50 print"[147][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
  7. 60 print"[223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][146]";
  8. 70 print"[169][223]                                    [169][223]";
  9. 80 print"[223][169][146]        [176][176][174][176][174][174][178][176][192][174][176] [174][176][178][174][176][192][174][174]        [169][223][146]";
  10. 90 print"[169][223]        [221][221] [221][221][221][221][221]  [221] [221] [221] [221]           [169][223]";
  11. 100 print"[223][169][146]        [171][177][174][221][221][221][221][221] [174][171][192][179] [221] [173][192][174]         [223][169][146]";
  12. 110 print"[169][223]        [221] [221][221][221][221][221][221] [221][221] [221] [221]   [221]         [169][223]";
  13. 120 print"[223][169][146]        [173] [189][173][173][189][177][173][192][189][173] [189] [177] [173][192][189]         [223][169][146]";
  14. 130 print"[169][223]      [176][192][174][176][174][176][176][192][174][176] [174][176][192][174][176][174][174][176][192][174][176][192][174]      [169][223]";
  15. 140 print"[223][169][146]      [221]   [221][221][221]  [221] [221][221] [221][221][221][221][221]  [221]        [223][169][146]";
  16. 150 print"[169][223]      [171][192] [176][219][189][221]  [171][192][179][171][192][179][221][221][221][221] [174][171][192]       [169][223]";
  17. 160 print"[223][169][146]      [221]  [221][221] [221]  [221] [221][221] [221][221][221][221][221] [221][221]        [223][169][146]";
  18. 170 print"[169][223]      [173][192][189][189][173][189][173][192][189][173] [189][173] [189][173][173][189][173][192][189][173][192][189]      [169][223]";
  19. 180 print"[223][169][146]        [176][192][192][174][176]  [174][176][192][192][174][176][192][192][174][176][192][192][174]        [223][169][146]";
  20. 190 print"[169][223]        [221]   [171][192][192][179][171][192]  [173][192][192][174][173][192][192][174]        [169][223]";
  21. 200 print"[223][169][146]        [173][192][192][189][173]  [189][173][192][192][189][173][192][192][189][173][192][192][189]        [223][169][146]";
  22. 210 print"[169][223]         [176][192][174][176] [174][176][192][174][176][192][174][176]  [176][192][174]         [169][223]";
  23. 220 print"[223][169][146]         [171][192][189][221] [221][176][192][189][176][192][189][221]  [171][192]          [223][169][146]";
  24. 230 print"[169][223]         [173]  [173][192][189][173][192][189][173][192][189][173][192][189][173][192][189]         [169][223]";
  25. 240 print"[223][169][146]                                    [223][169][146]";
  26. 250 print"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
  27. 260 print"[223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]";
  28. 270 fori=1to2:print"                                        [146]";:next
  29. 280 print"                                       [157][148] "
  30. 290 tq=0:poke53370,0
  31. 292 tq=tq+1:geta$:ifa$=""andtq<200then292
  32. 294 poke53371,0
  33. 298 gosub1290
  34. 300 :
  35. 310 rem  instruction screen
  36. 320 :
  37. 330 dv=peek(186):ifdv<8thendv=8
  38. 332 poke53281,10:poke53280,0:s=53248
  39. 334 print"[147][144] [212]o begin, two white knights occupy the"
  40. 340 print" upper corners  while two black knights"
  41. 350 print" occupy the lower corners of a three by"
  42. 360 print" three square gameboard grid."
  43. 370 print"            [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"
  44. 380 fori=1to3:print"            [221]    [221]    [221]    [221]":next
  45. 390 print"            [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
  46. 400 fori=1to3:print"            [221]    [221]    [221]    [221]":next
  47. 410 print"            [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
  48. 420 fori=1to3:print"            [221]    [221]    [221]    [221]":next
  49. 430 print"            [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
  50. 440 print" [212]he objective is  to end the game with"
  51. 450 print" the corner positions  of the white and"
  52. 460 print" black knights exchanged[144] using only the"
  53. 470 print" nine cells and the knight's chess move.";
  54. 480 pokes+2,132:pokes+3,100:pokes+4,212:pokes+5,100
  55. 490 pokes+6,132:pokes+7,164:pokes+8,212:pokes+9,164
  56. 500 pokes+21,30:print" [208]ress any key to begin.";
  57. 510 geta$:ifa$=""then510
  58. 512 pokes+21,0
  59. 520 :
  60. 530 rem  gameboard screen
  61. 540 :
  62. 550 print"[147]";:poke53281,0:poke53280,10:poke646,10
  63. 560 print"                      [146] [198][210][207][205] [212][207]  [198][210][207][205] [212][207]"
  64. 570 print" [150] [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]    [146]"
  65. 580 print" [150] [221]1   [150][146][221]2   [150][146][221]3   [150][146][221][146]    [146]"
  66. 590 fori=1to2: print" [150] [221]    [150][146][221]    [150][146][221]    [150][146][221]    [146]":next
  67. 600 print" [150] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]    [146]"
  68. 610 print" [150] [221]4   [150][146][221]5   [150][146][221]6   [150][146][221]    [146]"
  69. 620 fori=1to2: print" [150] [221]    [150][146][221]    [150][146][221]    [150][146][221]    [146]":next
  70. 630 print" [150] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]    [146]"
  71. 640 print" [150] [221]7   [150][146][221]8   [150][146][221]9   [150][146][221]    [146]"
  72. 650 fori=1to2: print" [150] [221]    [150][146][221]    [150][146][221]    [150][146][221]    [146]":next
  73. 660 print" [150] [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]    [146]"
  74. 670 print"                      [146]"
  75. 680 fori=1to2:print"                      [146]":next
  76. 690 fori=1to6:print"                      [146]":next
  77. 700 print"                                        [146]";
  78. 710 print"                                       [157][148] "
  79. 712 poke214,15:print:print"[150]   [208]ress [209] to [209]uit
  80. 720 :
  81. 730 [143]  sprite positioning
  82. 740 :
  83. 750 s[178]53248:[151]s[170]2,52:[151]s[170]3,68:[151]s[170]4,132:[151]s[170]5,68
  84. 760 [151]s[170]6,52:[151]s[170]7,132:[151]s[170]8,132:[151]s[170]9,132
  85. 770 [151]s[170]21,30
  86. 780 :
  87. 790 [143]  set variables
  88. 800 :
  89. 810 [134] t(16),f(16):m[178]1:mp[178]1088:s$[178]"                   "
  90. 820 [129]i[178]1[164]16:[135]n:f(i)[178][181](n[173]10):t(i)[178]n[171]10[172]f(i):[130]
  91. 830 p[178]1747:[141]1140:[153]"cont(NULL)ove (NULL)umber:"
  92. 840 p[178]1984:[141]1140:[153]"def  chr$oal: peek(NULL)atnlen(NULL) on (NULL)op   (NULL)left$right$(NULL)val at peekottom"
  93. 850 [129]i[178]1[164]9:c(i)[178]0:[130]:c(1)[178]1:c(3)[178]2:c(7)[178]3:c(9)[178]4
  94. 860 [129]i[178]1[164]7[169]3:x(i)[178]52:x(i[170]1)[178]92:x(i[170]2)[178]132:[130]
  95. 870 [129]i[178]1[164]3:y(i)[178]68:y(i[170]3)[178]100:y(i[170]6)[178]132:[130]
  96. 880 :
  97. 890 [143]  input move
  98. 900 :
  99. 910 p[178]1759:[141]1140:[153]""m
  100. 920 [151]198,0:p[178]1784:[141]1140:[153]s$;:p[178]1824:[141]1140:[153]s$;
  101. 930 p[178]1788:[141]1140:[153]"cont(NULL)ove ascrom:  cmd";:[141]1210:f$[178]g$
  102. 940 f[178][197](f$):[139]f[179]1[176]f[177]9[167]1010
  103. 950 [151]198,0:p[178]1824:[141]1140:[153]s$;
  104. 960 p[178]1829:[141]1140:[153]"cont(NULL)ove (NULL)o:  cmd";:[141]1210:t$[178]g$
  105. 970 t[178][197](t$):[139]t[179]1[176]t[177]9[167]1010
  106. 980 [139]c(f)[178]0[176]c(t)[179][177]0[167]1010
  107. 990 [129]i[178]1[164]16:[139]f[178]f(i)[175]t[178]t(i)[167]1030
  108. 1000 [130]i
  109. 1010 p[178]1864:[141]1140:[153]" (NULL)ove (NULL)ot (NULL)ossible!";:[129]i[178]1[164]2000:[130]
  110. 1020 [141]1140:[153]s$;:[137]920
  111. 1030 p[178]mp:[141]1140:[153]f" "t:m[178]m[170]1:mp[178]mp[170]40:[139]mp[178]1968[167]mp[178]1097
  112. 1040 [139]mp[178]1937[167]mp[178]1088:[141]1360
  113. 1050 :
  114. 1060 [143]  move knight
  115. 1070 :
  116. 1080 [129]i[178]x(f)[164]x(t)[169]([180](x(t)[171]x(f))):[151]s[170]2[172]c(f),i:[130]
  117. 1090 [129]i[178]y(f)[164]y(t)[169]([180](y(t)[171]y(f))):[151]s[170]2[172]c(f)[170]1,i:[130]
  118. 1100 c(t)[178]c(f):c(f)[178]0:[141]1400:[137]910
  119. 1110 :
  120. 1120 [143]  cursor position subroutine
  121. 1130 :
  122. 1140 p[178]p[171]1024:[153]"";:py[178][181](p[173]40):px[178]p[171]40[172]py
  123. 1150 [139]py[179][177]0[167][129]pp[178]1[164]py:[153]"";:[130]
  124. 1160 [139]px[179][177]0[167][129]pp[178]1[164]px:[153]"";:[130]
  125. 1170 p[178]p[170]1024:[142]
  126. 1180 :
  127. 1190 [143]  get subroutine
  128. 1200 :
  129. 1210 [151]198,0
  130. 1220 [151]204,0:[151]207,0
  131. 1230 [161]g$:[139]g$[178]""[167]1220
  132. 1240 [139]g$[178]"q"[167][151]204,1:[137]1430
  133. 1250 [153]""g$:[151]204,1:[142]
  134. 1260 :
  135. 1270 [143]  sprite creation subroutine
  136. 1280 :
  137. 1290 s[178]53248:[129]i[178]0[164]62:[135]n:[151]832[170]i,n:[130]
  138. 1300 [151]2041,13:[151]2042,13:[151]2043,13:[151]2044,13
  139. 1310 [151]s[170]40,1:[151]s[170]41,1:[151]s[170]42,0:[151]s[170]43,0
  140. 1320 [142]
  141. 1330 :
  142. 1340 [143]  erase moves subroutine
  143. 1350 :
  144. 1360 p[178]1088:[129]i[178]1[164]22:[141]1140:[153]"               ":p[178]p[170]40:[130]:[142]
  145. 1370 :
  146. 1380 [143]  game check subroutine
  147. 1390 :
  148. 1400 [139]c(1)[177]2[175]c(3)[177]2[175]c(7)[177]0[175]c(7)[179]3[175]c(9)[177]0[175]c(9)[179]3[167]1420
  149. 1410 [142]
  150. 1420 p[178]1784:[141]1140:[153]"sys  lenongratulations!"
  151. 1430 [151]214,19:[153]:[153]"cont(1cont) atngain  "
  152. 1432 [153]"(2cont) (NULL)o (NULL)(NULL)atn(NULL)(NULL)(NULL)
  153. 1440 poke198,0
  154. 1442 geta$:ifa$=""then1442
  155. 1444 ifa$="1"thenpokes+21,0:run298
  156. 1446 ifa$="2"thenpokes+21,0:goto4000
  157. 1470 :
  158. 1480 rem  sprite data
  159. 1490 :
  160. 1500 data 0,0,0,0,31,192,0,127,96,0,255,112,1,247,248,1,253,252,3,255,62,3
  161. 1510 data 255,154,3,255,204,3,255,192,1,255,192,1,255,128,0,255,0,0,255,0,0,255
  162. 1520 data 0,0,255,0,1,255,128,15,255,240,31,255,248,15,255,240,0,0,0
  163. 1530 data 16,18,27,29,34,38,43,49,61,67,72,76,81,83,92,94
  164. 4000 print"[147]":poke53281,0
  165. 4010 poke214,12:print:printtab(8)"[159][204]oading [195][200][197][211][211] [209][213][193][210][212][207]"
  166. 4020 print"[144] load"chr$(34)"b.chess quarto"chr$(34)","dv
  167. 4030 print" run"
  168. 4040 poke631,13:poke632,13:poke198,2:end
  169. 10000 d=peek(186):n$="knights ex":open15,d,15,"s0:"+n$:close15:saven$,d:end
  170.